Fortran 循环署名

outter: do i=1, 3
    inner: do j=1, 3
      ...
    if () exit outter
    if () cycle inner
    end do inner
end do outter